home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 July / Disc 1 / PCU0703CD1.iso / software / online / files / imacros.exe / GET-EXCHANGE-RATE.VBS < prev    next >
Encoding:
Text File  |  2002-08-08  |  986 b   |  32 lines
  1. 'Note: EXTRACT requires Internet Explorer 6.0 or better to be installed 
  2.  
  3. Msgbox ("This example will retrieve the current exchange rate for US$, EURO and GBP. This macro will run in the system tray.")
  4. dim ExchangeRate
  5.  
  6. set iim1= CreateObject ("iimwsh.iim")
  7.  
  8. iret = iim1.iimInit ("-tray")
  9. iret = iim1.iimDisplay("Extract Example")
  10. iret = iim1.iimSet("-tray", "")
  11. iplay = iim1.iimPlay("wsh-extract")
  12. data = iim1.iimGetLastMessage()
  13. iret = iim1.iimExit
  14.  
  15. If iplay = 2 Then
  16.     ExchangeRate= Split(data, "[EXTRACT]")
  17.     s = "One US$ costs " + ExchangeRate(0) + " EURO or " + ExchangeRate(1) + " British Pounds (GBP)"
  18.     MsgBox s
  19. End If
  20.  
  21. If iplay = 1 Then
  22.     MsgBox "Done, but no data extracted. This case should not happen unless there is no EXTRACT command in the macro."
  23. End If
  24.  
  25. If iplay < 0 Then
  26.     ExchangeRate= Split(data, "[EXTRACT]")
  27.     s = "The following error occurred: " +  vbCrLf + vbCrLf + ExchangeRate(0)
  28.     MsgBox s
  29. End If
  30.  
  31. WScript.Quit(0)
  32.